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The early years 



• the first program to be called Forth was written in about 
1970 by Charles Moore. 
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BIRTH OF FORTH 

The early years 



• the first program to be called Forth was written in about 
1970 by Charles Moore. 

• An Open Source Forth called FIG-FORTH made Forth 
known on many computer enthusiasts on may 
architectures. 

• In the late 70s and during the 80s, Forth was often used on 
Mirco- and Home-Computer Systems. 
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Birth of Forth 

Forth Today 


The Name 



How did Forth get its name? 



Charles Moore: 

The first time I combined the ideas I had been developing into a 
single entity, I was working on an IBM 1130, a 
"third-generation" computer. The result seemed so powerful 
that I considered it a "fourth generation computer language. " I 
would have called it Fourth, except that the 1 130 permitted only 
five-character identifiers. So Fourth became Forth, a nicer play 
on words anyway. 
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« Forth is often used "invisible" 

• as the Firmware (or BIOS) of all Apple and SUN Sparc 
Machines 

« as a Bootloader in FreeBSD 

• as embedded Software, e.g. in Vending Machines 

• or F1 Race Cars 

• or Satellites 
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Forth Simplicity 



• Forth has just two rules: 

O You have NUMBERS (in any numeric base you could 

imagine). They are pushed on to the DATA STACK or 

compiled on to the DICTIONARY. 
O You have SYMBOLS. They are searched through the 

DICTIONARY and, if found, EXECUTED or compiled on to 

the DICTIONARY too. 

• Forth has two main modes: EXECUTE and COMPILE. 
Depending what mode you are in, the behavior of numbers 
and symbols changes accordingly. 

• That's it. Everything else is about WORDS, that means, 
what one of the SYMBOLS does when EXECUTED. 
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How it works 



« Forth is a stack-based language based on PostfixNotation 

• all processing is done in "WORDS", the Forth name for 
"Subroutines" 

» Operations and function calls (Words) are placed after their 
arguments 

a arguments are pushed on the data stack by the user or 
other "Words", and then popped off the data stack by the 
"Words", performing their operation, 

• and then pushing the results back on the data stack. 

• Forth Systems can be Interpreter or Native-Compiler, or 
both, or Cross-Compiler. 
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• Forth Programmers create Applications by extending Forth 

• creating (compiling) new Words (there is no difference 
between supplied Forth Words and User-defined Words) 
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• Forth Programmers create Applications by extending Forth 

• creating (compiling) new Words (there is no difference 
between supplied Forth Words and User-defined Words) 

• Programmers can choose to hide the Forth System in their 
application... 

o or choose to expose the System, e.a. as a powerful Macro 
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• Programming in Forth is somewhat different to 
"mainstream" languages 

• in Pascal, Perl, C/C++, Basic, there is a clear distinction 
between 

• the Tool (the Programming Language Compiler/Interpreter) 
» and the Application (Binary or Sourcecode) 

o in Forth, a Basic Forth System will be extended and 
changed to become the Application 

o = Tool and Application are not distinct 
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What does it look like 





c 1 



The function main 1 


main() /* test power function 7 
{ 

int i; 






for (i=0; i<10; ++i) 
printf("%d %d %d\n", i, power(2,i), power(-3,i)); 

} 




- 



Forth 



A word to test "power" 1 


: main ( - ) \ test power function 




10 do 




i . 2 i power . -3 i power . cr 




loop 


' 
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C 2 



Here is the K&R version of the function power 



power(x,n) /* raise x to the n-th power; n > 7 

int x,n; 

{ 

int i,p; 
P=1; 

for (i=1 ; k=n; ++i) 
P = P*x; 
return(p); 

} 



Again: Example taken from Holon Forth Website 
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In Forth it can be written as 



Definition of Word "power" 



: power ( x n - p ) \ raise x to the n-th power; n > 
1 swap do over * loop nip ; 
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or in more detail 



Definition of Word "power" 



: power (xn-p) \ raise x to the n-th power; n > 
1 swap \ - x 1 n 
\-x 1 n 
do \ - x 1 

over \ - x 1 x 

* \-x 1*x, finally: -x x A n 
loop 

nip \-x A n 
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Extending Forth 





• Forth can be easily extended 

o because the programmer has full access to the underlying 



Npw Idpas ran bp addpd to thp lanouaop pasilv (likp OOP 
Obiect Oriented Programming) 
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easily extensible 



• Forth can be easily extended 

• because the programmer has full access to the underlying 
system 

• extending Forth is changing the Forth System (including 
the Forth Compiler and/or Interpreter) 

• Porting Forth to a new Processor or OS can be done in 1-2 
Weeks (or less) 

o Npw Idpa^ ran hp addpd tn thp lannnarip pa^ilv (likp OOP 
Object Oriented Programming) 
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Extending Forth 





• Forth can be easily extended 

• because the programmer has full access to the underlying 
system 

• extending Forth is changing the Forth System (including 
the Forth Compiler and/or Interpreter) 

• Porting Forth to a new Processor or OS can be done in 1-2 
Weeks (or less) 

a New Ideas can be added to the language easily (like OOP, 
Object Oriented Programming) 
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OOP Extension in 655 Bytes 



OOP Extension to ANSI Forth 



\ Mini-OOF 12apr98py 

: method ( m v "name" — m' v ) Create over , swap cell+ swap 
DOES> ( . . . o — ... ) @ over @ + @ execute ; 
: var ( m v size "name" — m v' ) Create over , + 

DOES> ( o — addr ) @ + ; 

: class ( class — class methods vars ) dup 2@ ; 

: end-class ( class methods vars "name" — ) 

Create here >r , dup , 2 cells ?D0 ['] noop , 1 cells +LOOP 

cell+ dup cell + r> rot @ 2 cells /string move ; 

: defines ( xt class "name" — ) ' >body @ + ! ; 

: new ( class — o ) here over @ allot swap over ! ; 

: : : ( class "name" — ) ' >body @ + @ compile, ; 

Create object 1 cells , 2 cells , 

; 
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• Forth naturally teached you to use techniques 
rediscovered today in "Extreme Programming" 3 

• create small parts (Forth Words), test them, make them 
work 



3 See DDJ Article "Extreme Forth" 
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• Forth naturally teached you to use techniques 
rediscovered today in "Extreme Programming" 3 

• create small parts (Forth Words), test them, make them 
work 

• "fun-down approach" of software development - start where 
you will get the most immediate gratification 

• Refactor - make your code work well 

under Creative Commons License 4 



3 See DDJ Article "Extreme Forth" 

see http!//tninking-forth. sourceforge.net/ <s ► « i ► « i ► ^ii= -oq.o 
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Learn more on Programming 



• Forth naturally teached you to use techniques 
rediscovered today in "Extreme Programming" 3 

• create small parts (Forth Words), test them, make them 
work 

• "fun-down approach" of software development - start where 
you will get the most immediate gratification 

• Refactor - make your code work well 

• read "Thinking Forth" (published 1984), now available 
under Creative Commons License 4 



3 See DDJ Article "Extreme Forth" 

4 see http://thinking-forth.sourceforge.net/ 
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Forth ideas can be used in any programming language 



DDJ Electronic Review of Computer Books: 

Even if you never use Forth, however, you might benefit from 
studying some of its features. For example, all of the internal 
code used by the Forth interpreter and compiler is available to 
application developers. This simple idea has many benefits - it 
exposes a complete standard set of tools, it lets you extend the 
environment and language in deep ways, and it enables some 
very advanced development paradigms. 
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Outline 




%9 Forth in Time 

• Birth of Forth and the roaring 80s 

• Forth Today 

Q An Overview on Forth 

• Forth Basics 

• Examples (Forth vs. C) 
» Forth is easily extensible 

Q Why learning/using Forth 



• Create lean and fast Programs 

• Forth, the good and the bad 

Q 21C3 - Forth Crossover 
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Save Time, Memory and CPU Cycles 



• Forth allows for lots of functionality into limited memory 
(small Forth System ~ 4 KB, large Forth System ~ 100-200 KB) 
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Save Time, Memory and CPU Cycles 



• Forth allows for lots of functionality into limited memory 
(small Forth System ~ 4 KB, large Forth System ~ 100-200 KB) 

• Code (and much data) is ROM-able (good for embedded 
Systems) 

o Is a "HiqhLevelLanquaqe" that encourages highly modular 
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Save Time, Memory and CPU Cycles 



• Forth allows for lots of functionality into limited memory 
(small Forth System ~ 4 KB, large Forth System ~ 100-200 KB) 

• Code (and much data) is ROM-able (good for embedded 
Systems) 

• Is a "HighLevelLanguage" that encourages highly modular 
code. 
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Save Time, Memory and CPU Cycles 



a Can be interpreted at high speed (approaching that of 
machine code). Think "interactive hardware debugging". 
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Save Time, Memory and CPU Cycles 



a Can be interpreted at high speed (approaching that of 
machine code). Think "interactive hardware debugging". 

• Easily compiled to machine code. 
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Save Time, Memory and CPU Cycles 



a Can be interpreted at high speed (approaching that of 
machine code). Think "interactive hardware debugging". 

• Easily compiled to machine code. 

• Integrated access to assembly language. 
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Save Time, Memory and CPU Cycles 



a Can be interpreted at high speed (approaching that of 
machine code). Think "interactive hardware debugging". 

• Easily compiled to machine code. 

• Integrated access to assembly language. 

• Is "fully and easily extensible." (Only a few low-level 
routines of the runtime are not written in FORTH.) 
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^ Forth in Time 

• Birth of Forth and the roaring 80s 

• Forth Today 

Q An Overview on Forth 
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» Forth is easily extensible 

Q Why learning/using Forth 
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What is good at Forth 




• It is simple to build from the bottom up. 

• You can get an application to run in a miniscule amount of 



RAM. 
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What is good at Forth 




• It is simple to build from the bottom up. 

• You can get an application to run in a miniscule amount of 
RAM. 

• You can try things out in real time as you build your system. 
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• It is simple to build from the bottom up. 

• You can get an application to run in a miniscule amount of 
RAM. 

• You can try things out in real time as you build your system. 

• Compared to any other interpreted language, it is fast. 
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What is (maybe) bad on Forth 



• If you know one Forth System. 



Carsten Strotmann FORTH 



Forth in Time 
An Overview on Forth Broaden your horizon 
Why learning/using Forth Create lean and fast Programs 
Summary Forth, the good and the bad 

21 C3 - Forth Crossover 



What is (maybe) bad on Forth 



• If you know one Forth System... 
» ... you know one Forth System 
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What is (maybe) bad on Forth 



• If you know one Forth System... 
o ... you know one Forth System 

• ... at one point of time, because Forth Systems are totally 
comprehensible by one person, ... 
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What is (maybe) bad on Forth 



• If you know one Forth System... 
o ... you know one Forth System 

• ... at one point of time, because Forth Systems are totally 
comprehensible by one person, ... 

• ... Forth Programmer start do create their own Forth, their 
own OOP etc etc etc 

a but this can also be seen as a good thing ;) 
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What is (maybe) bad on Forth 



• If you know one Forth System... 

o ... you know one Forth System 

• ... at one point of time, because Forth Systems are totally 
comprehensible by one person, ... 

• ... Forth Programmer start do create their own Forth, their 
own OOP etc etc etc 

• but this can also be seen as a good thing ;) 
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Should I start using (only) Forth now? 



• No, but you should give it a try 

o If vou don't like it there is alwavs a lesson learned 
» You might need a Forth-compatible brain to enioy Forth 



Carsten Strotmann FORTH 



Forth in Time 




An Overview on Forth 


Broaden your horizon 


Why learning/using Forth 


Create lean and fast Programs 


Summary 


Forth, the good and the bad 


21 C3 - Forth Crossover 





Should I start using (only) Forth now? 



• No, but you should give it a try 
a If you like it, keep it 

o If vou don't like it there is alwavs a lesson learned 
a You might need a Forth-compatible brain to enioy Forth 
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Should I start using (only) Forth now? 



• No, but you should give it a try 

• If you like it, keep it 

• If you don't like it, there is always a lesson learned 

<» You might need a Forth-compatible brain to enjoy Forth 
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Should I start using (only) Forth now? 



• No, but you should give it a try 

• If you like it, keep it 

• If you don't like it, there is always a lesson learned 

• You might need a Forth-compatible brain to enjoy Forth 
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Should I start using (only) Forth now? 



• Keep in mind: 

» Forth might not be the best solution for every problem 
(Universal truth) 
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Should I start using (only) Forth now? 



Keep in mind: 

» Forth might not be the best solution for every problem 

(Universal truth) 
o There is no such thing as the "best programming language" 
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Should I start using (only) Forth now? 



• Keep in mind: 

» Forth might not be the best solution for every problem 
(Universal truth) 

• There is no such thing as the "best programming language" 

• Build your skills for a bag of tools for the bunch of problems 
out there 
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Should I start using (only) Forth now? 



• Keep in mind: 

» Forth might not be the best solution for every problem 
(Universal truth) 

• There is no such thing as the "best programming language" 

• Build your skills for a bag of tools for the bunch of problems 
out there 
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• Forth is different enough to be worth learning. 
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Summary 



• Forth is different enough to be worth learning. 

• Forth is fun. Forth is flexible. Forth is fast and small. 
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Summary 



• Forth is different enough to be worth learning. 

• Forth is fun. Forth is flexible. Forth is fast and small. 
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BrainPck in Forth, see Talk #65 Clifford Wolf 



( Brainf*ck in FORTH, 2003, Carsten Strotmann ) 
CR . " BrainF*ck " 
VARIABLE IP 

: IP+ IP @ 1+ IP ! ; : IP- IP @ 1 - IP ! ; 
: IP@ IP @ C@ ; : 2DUP DUP DUP ; 
: BF+ 2DUP C@ 1+ SWAP C! ; 
: BF- 2 DUP C@ 1 - SWAP C! ; 
: BF> 1+ ; : BF< 1 - ; 

BF. DUP C@ EMIT ; : BF, DUP KEY SWAP C! ; 
: BF [ DUP C@ 0= IF BEGIN IP+ IP@ 93 = UNTIL THEN ; 
: BF] BEGIN IP- IP@ 91 = UNTIL ; 
: BFI ( addr — ) 
IP ! BEGIN 

IP@ 93 - IF BF] THEN IP@ 91 = IF BF [ THEN IP@ 62 " IF BF> THEN 
IPfi 60 - IF BF< THEN IP@ 4 6 - IF BF . THEN IP@ 44 - IF BF, THEN 
IP8 45 = IF BF- THEN IP@ 43 = IF BF+ THEN 
IP+ IPS = UNTIL ; 

: BF HERE 3000 ERASE HERE BL WORD 1+ BFI ; 

4 
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• Forth in Hardware 

• See Talk #42 

• Cored Programming - Building systems on your own soft 
core, Klaus Schleisiek 



Carsten Strotmann FORTH 



Appendix 

For Further Reading I 




^ Leo Brodie, Starting Forth. 

http://www.fortrifreak.net/wiki/index.cgi/7StartingFortri 

^ Leo Brodie, Thinking Forth. 

http://thinking-forth.sourceforge.net/ 

1 ForthFreak Wiki 

http://www.forthfreak.net/wiki/index.cgi7ForthFreak 

13 Forth Gesellschaft e.V. 
http://www.forth-ev.de/ 

i Forth Interest Group (FIG) US 
http://www.forth.org/ 
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Appendix 

For Further Reading II 




§ Forth Inc. 

http://www.forth.com/index.html 

| c2 Wiki (Ward Cunningham) on Forth 
http://c2.com/cgi/wiki7ForthLanguage 

H DDJ Re-Review of Thinking Forth, 2003 
http://www.ercb.com/ddj/2003/ddj.0308.html 
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